10 PRINT"[147]","  [196][201][211][203][160][201][196][160][195][200][193][206][199][197][210]":REMRENE W. POIRIER * COMPUTE VOL.1/ISS.5/P.83
20 PRINT""TAB(21)CHR$(34):PRINT"[205]IT DIESEM [208]ROGRAMM KONNEN"
30 PRINTTAB(17)CHR$(34):PRINT"[196]ISK-[206]AME & [201][196] GEANDERT WERDEN"
40 FORL=1TO10:PRINT"[192][192][192][192]";:NEXT
45 PRINT"[201]N WELCHEM [204]AUFWERK BEFINDET SICH DIE"
50 PRINTTAB(3)CHR$(34):PRINT"[218]U ANDERNDE [196]ISKETTE [0/1] ? ";:GOSUB220:DV=VAL(X$)
60 DV$=X$:IFX$<"0"ORX$>"1"GOTO20
70 PRINT""CHR$(34):PRINT"[193]NDERUNG VON  [196]ISK-[206][146]AME"
75 PRINTTAB(9)"ODER [196]ISK-[201][146]D ? ";
80 GOSUB220:IFX$<>"N"ANDX$<>"I"GOTO70
90 OPEN15,8,15:PRINT#15,"I"+DV$:OPEN1,8,3,"#":PRINT#15,"U1:3"DV",18,0"
95 IFX$="N"GOTO170
100 PRINT#15,"B-P:3,162":GET#1,A$,B$,C$,D$,E$
105 PRINT"[196]ERZEITIGE [196]ISK-[201][196] IST "CHR$(34)A$B$C$D$E$CHR$(34)
110 INPUT"[206]EUE [196]ISK-[201][196] (5 [218]EICHEN) ";NI$:NI$=LEFT$(NI$+"     ",5)
120 PRINT#15,"B-P:3,162":PRINT#1,NI$;:PRINT#15,"U2:3"DV",18,0
130 I$[178]"I"[170][202]([196](DV),2):[152]15,I$
140 [153]"LOAD"[163]30)[199](34):[153]"STR$AS STR$IRECTORY ZEIGT, DASS DIE ATNENDERUNG"
150 [153][163]16)[199](34):[153]"KORREKT DURCHGEFUHRT WURDE:
160 PRINT">$"DV$:PRINT"[145][145][145][145][145]":POKE198,2:POKE631,13:POKE632,13:END
170 PRINT#15,"B-P:3,144":DN$="":FORL=1TO16:GET#1,A$:DN$=DN$+A$:NEXT
180 PRINT"[196]ERZEITIGER [196]ISK-[206]AME IST:":PRINT:PRINTCHR$(34)DN$CHR$(34)
190 PRINT"[206]EUER [196]ISK-[206]AME (16 [218]EICHEN)":INPUTND$
200 ND$=LEFT$(ND$+"                ",16)
210 PRINT#15,"B-P:3,144":PRINT#1,ND$;:PRINT#15,"U2:3"DV",18,0":GOTO130
220 POKE204,0
230 GETX$:IFX$=""GOTO230
240 WAIT207,1,1:POKE204,1:PRINTX$:RETURN